home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS12.ADF / AmigaBBS / userinit (.txt) < prev    next >
AmigaBASIC Source Code  |  1986-08-05  |  476b  |  13 lines
  1. CLOSE#4
  2. OPEN "R",#4,"df1:USER",117
  3. FIELD #4, 1 AS check$,9 AS N1$,15 AS N2$,10 AS CO$,15 AS Adr$,10 AS CI$,10 AS STA$,3 AS AG$,9 AS PAS$,3 AS B1$,3 AS B2$,3 AS B3$,3 AS B4$,3 AS B5$,3 AS B6$,3 AS B7$,3 AS B8$,3 AS B9$,1 AS EM1$,1 AS EM2$,1 AS EM3$,1 AS EM4$,1 AS EM5$,3 AS Valu$
  4. FOR j=700 TO 1000
  5. GET#4,j
  6. LSET check$="b"
  7. LSET Valu$="000"
  8. PUT#4,j
  9. NEXT j
  10. CLOSE#4
  11. END
  12.  
  13.